﻿<!-- #include virtual="/Inc/conn.asp"-->
<!-- #include virtual="/Inc/md5.asp"-->
<!-- #include virtual="/Inc/function.asp"-->
<!-- #include virtual="/Inc/config.asp"-->
<!-- #include virtual="/Inc/Admin/common.asp"-->
<ul><%
Dim cid,num,words,ptitle
cid=clng(Request("cid"))
num=clng(Request("num"))
words=clng(Request("words"))
sql="select top " & num & " * from db_page where pageid=" & cid
set rs = Server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,1
do while not rs.eof
ptitle=rs("title")
if len(ptitle)>words then ptitle=left(ptitle,words) & "..."
%>
<li><a href="#"><%=ptitle%></a></li>
<%
rs.movenext
loop
rs.close
%></ul>